home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / mailx4 / system.fr_ / system.bin (.txt)
Encoding:
Visual Basic Form  |  1996-09-15  |  2.2 KB  |  71 lines
  1. VERSION 2.00
  2. Begin Form SystemX 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Mail X System"
  6.    ClientHeight    =   2700
  7.    ClientLeft      =   1710
  8.    ClientTop       =   2625
  9.    ClientWidth     =   3915
  10.    Height          =   3075
  11.    Left            =   1665
  12.    LinkTopic       =   "Form3"
  13.    ScaleHeight     =   2700
  14.    ScaleWidth      =   3915
  15.    Top             =   2295
  16.    Width           =   4005
  17.    Begin CommandButton Continue 
  18.       Caption         =   "&Continue"
  19.       Height          =   435
  20.       Left            =   390
  21.       TabIndex        =   3
  22.       Top             =   2040
  23.       Width           =   3195
  24.    End
  25.    Begin Frame Frame1 
  26.       BackColor       =   &H00C0C0C0&
  27.       Caption         =   "Select Your Mail System:"
  28.       Height          =   1680
  29.       Left            =   375
  30.       TabIndex        =   0
  31.       Top             =   135
  32.       Width           =   3270
  33.       Begin OptionButton POP3SMTP 
  34.          BackColor       =   &H00C0C0C0&
  35.          Caption         =   "POP3/SMTP"
  36.          Height          =   255
  37.          Left            =   480
  38.          TabIndex        =   4
  39.          Top             =   1200
  40.          Width           =   2175
  41.       End
  42.       Begin OptionButton VIM 
  43.          BackColor       =   &H00C0C0C0&
  44.          Caption         =   "VIM (cc:Mail, Notes)"
  45.          Height          =   495
  46.          Left            =   480
  47.          TabIndex        =   2
  48.          Top             =   690
  49.          Width           =   2175
  50.       End
  51.       Begin OptionButton MSMAIL 
  52.          BackColor       =   &H00C0C0C0&
  53.          Caption         =   "Microsoft Exchange"
  54.          Height          =   375
  55.          Left            =   480
  56.          TabIndex        =   1
  57.          Top             =   330
  58.          Width           =   2085
  59.       End
  60.    End
  61. Sub Continue_Click ()
  62.     If MsMail.Value = True Then
  63.         SessionForm.MSess1.Mail_Type = SESSION_MSMAIL
  64.     ElseIf POP3SMTP.Value = True Then
  65.         SessionForm.MSess1.Mail_Type = SESSION_POP3SMTP
  66.     Else
  67.         SessionForm.MSess1.Mail_Type = SESSION_VIM
  68.     End If
  69.     Unload Me
  70. End Sub
  71.